start tok64 d64-vBxfZc
100 REM convert budget file
105 q$="{W*40}
110 r$="{Q*40}
115 INPUT"{clear}{down}{right}konto#";z$
120 OPEN2,8,2,"0:"+z$+",s,r"
125 INPUT#2,a$,b$,c$,d$,e$,f$
130 INPUT#2,z:DIMa(z),b$(z),c(z),d(z),e(z),f(z)
135 FORi=1TOz
140 INPUT#2,a(i),b$(i),c(i),d(i),e(i),f(i):a(i)=a(i)*100:c(i)=c(i)*100
145 PRINT"{home}{down*3}"LEFT$(q$,40*i/z)"{home}{down*4}"i
150 NEXT
155 CLOSE2
160 PRINT"{down}s[tt i destinationsdisk >":POKE198,.:WAIT198,1:GETx$
165 PRINT"{up}{space*25}"
170 OPEN2,8,2,"@0:"+z$+",s,w"
175 s$=CHR$(13)
180 PRINT#2,a$s$b$s$c$s$d$s$e$s$f$s$z
185 FORi=1TOz
190 PRINT#2,a(i)s$b$(i)s$c(i)s$d(i)s$e(i)s$f(i)
195 PRINT"{home}{down*3}"LEFT$(r$,40*i/z)"{home}{down*4}"z-i"{left} "
200 NEXT
205 CLOSE2
stop tok64
(bastext 1.0)